; Hard Disk Installer for DoubleClick!, Full/HTML Version
; Issue Four
(complete 0)
(set DC4-dest
(askdir
(prompt "Please Select Where You Wish to Install DoubleClick.\n A New Drawer Will Automatically be Created.")
(help ask-dirhelp
"\n"
"If this is your first issue of DoubleClick, then select the drawer where you want to install DoubleClick; a new drawer will automatically be created.\n\n"
"If you own a previous installed issue (ignoring Issue 1), then select the drawer containing the 'DoubleClick!' drawer; do not go into that drawer! See ReadMe for more details.")
(default @default-dest)
)
)
(set DC4-dest (tackon DC4-dest "DoubleClick!"))
(set @default-dest DC4-dest)
(makedir DC4-dest (infos))
(makedir (tackon DC4-dest "Mag4") (infos))
(makedir (tackon DC4-dest "MagTools") (infos))
(complete 10)
(
(working "Installing DC4_DISK1:...")
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK1:Mag4/")
(dest (tackon DC4-dest "Mag4/"))
(pattern "#?")
(infos)
)
(complete 30)
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK1:")
(dest DC4-dest)
(pattern "Issue4")
(infos)
)
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK1:")
(dest DC4-dest)
(pattern "Install_DC4_RAM")
(infos)
)
(complete 40)
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK1:MagTools/")
(dest (tackon DC4-dest "MagTools/"))
(pattern "#?")
(infos)
)
(complete 45)
(if (= (exists "C:OCTAMEDPLAYER" (noreq)) 0)
(
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK1:C/")
(dest "C:")
(pattern "octamedplayer")
(infos)
)
))
(if (= (exists "C:RTDD" (noreq)) 0)
(
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK1:C/")
(dest "C:")
(pattern "rtdd")
(infos)
)
))
(if (= (exists "C:VT" (noreq)) 0)
(
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK1:C/")
(dest "C:")
(pattern "vt")
(infos)
)
))
(if (= (exists "C:PPSHOW" (noreq)) 0)
(
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK1:C/")
(dest "C:")
(pattern "ppshow")
(infos)
)
))
(if (= (exists "LIBS:AMOS.LIBRARY" (noreq)) 0)
(
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK1:Libs/")
(dest "Libs:")
(pattern "amos.library")
(infos)
)
))
(if (= (exists "LIBS:CRM.LIBRARY" (noreq)) 0)
(
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK1:Libs/")
(dest "Libs:")
(pattern "crm.library")
(infos)
)
))
)
(complete 55)
(
(working "Installing DC4_DISK2:...")
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "DC4_DISK2:Mag4/")
(dest (tackon DC4-dest "Mag4/"))
(pattern "#?")
(infos)
)
)
(complete 100)
(exit)